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MODULE RPGSOPEN( X%TITLE bocate key of reference’ | 
DENT = '1=-001' ! file:RPGOPEN.B32 EDIT:DJB1001 
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'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
i® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
'* ALL RIGHTS RESERVED. 


:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY B 
THE TERMS OF 


USED AND COPIED 
'* ONLY a ee eae WITH H 


E 
SUCH LICENSE AND WITH THE 
; NCLUS E E 0 TWARE Y OTHER 
!* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
fnanerchate NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
® . 


i® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
: prmeoket tin NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
'® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

'@ 
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FACILITY: 
ABSTRACT: 


RPGII SUPPORT 


This module contains 1 procedure to locate the appropriate key of 
reference in an existing indexed file. 


; 
; 
; 
; 
; 
; 
ENVIRONMENT: Vax-11 User Mode 
! AUTHOR: D J Braffitt, CREATION DATE: 18-Mar-1983 
MODIFIED BY: 

| 1-001 Original. 


DJB 18-Mar-1983 


! <BLF /PAGE> 
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' Switches, PSECTs, macros, 
i “Linkages and LIBRARYs 
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1,83 reference ib-sep-19 4 06: 47:98 oe BLiss-32 V4.0-742 


DEXED = Locate key of reference 14-Sep-1984 


ZSBTTL ‘RPGSOPEN_INDEXED = Locate key of reference’ 
GLOBAL ROUTINE RPGSOPEN_INDEXED ( 


RPGRTL.SRCJRPGOPEN.B32; 1 


— REF BLOCKC,BYTE] ! Address of FAB 


+ 
+ 


FUNCTIONAL DESCRIPTION: 


This routine is passed the FAB for an indexed file and opens the file 

based on the appropriate key of reference. The XAB S$1Z0, POSO, DTP and NSG 
fields describe the desired key of reference. The goal of this module is to 
get the appropriate key of reference value into the XAB and RAB. Any 

MS error should be returned as the value of this routine so that 

the generated code will call RPGSIOEXCEPTION. In the case that the file 
organization is not indexed (RMS does not check this, but this module does), 
then RPGSIOEXCEPTION is called directly from this module. 


The plan of attack is to OPEN or CREATE the file, and if the file exists, 
make sure that it is indexed and then cycle through 
the various key of reference values using S$DISPLAY until the 
XAB is set up correctly. Then the RAB key of reference is set 
to the key of reference that has been discovered. The XAB and RAB 
are set initially to the primary key, so if this key matches the 
RPGII programmer's desired key, we are done. The info on the RPGII 
programmer's des: -ed key should be saved before the OPEN for Later 
comparison. 
CALLING SEQUENCE: 

CALL RPGSOPEN_INDEXED (fab.rr.r) 
FORMAL PARAMETERS: 


fab - Address of FAB 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
RMS status value 
SIDE EFFECTS: 
The file pointed to by the fab is opened or created as appropriate. 
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If the CIF (Create IF) bit is set, call SCREATE which will create the 
file if the open fails. The XAB checking should only be done if the 
- status is other than RMS$_CREATED 
fr) 


RPGSOPEN te key of reference 1b-se 1984 02:17: AX-11 Bliss-32 V4.0-742 P 4 
1-001 OPEN. {NDEXED - Locate key of reference 122868-1 388 98500293 RPGRTL. SRC IRPGOPEN.B32:1 — (4) 
43 BEGIN 
44 
45 MAP 
re FAB : REF BLOCKC, BYTE); 
48 LOCAL 
50 XAB_: REF sence , BYTEI, 
51 SAVE_KEY_POSO : WORD, 
2¢ SAVE-KEY_SIZO : RYTE, 
5 SAVE_KEY D.P : BYTE, 
24 RMS_STATOS; 
56 RAB = .FAB = RABSC_BLN; 
57 XAB_= .FAB + FABSC_BLN + NAMSC_BLN; 
58 SAVE _KEY_POS® = .XABCXABSW_POSO); 
59 SAVE_KEY_SIZ0 = .XABLXAB$B_S120); 
60 SAVE-KEY_DTP = .XABLXABSB_DTPJ; 
6 + 
63 
64 
65 


f the CIF bit is not set, call SOPEN and then perform XAB checking 


| 
| 
nly on success return. 
2 teehee 
RMS_STATUS = SCREATE(FAB=.F AB) 
sae RMS_STATUS = SOPEN(FAB=.FAB); 
taal AND (.RMS_STATUS NEQ RMS$_CREATED) 
BEGIN 
} 


i If we get here, the file already exists and has been successfully 
opened. Check that the file organization is indexed. 


IF .FABCFABSB_ORG] NEQ FABSC_IDX 
THEN 


BEGIN 

RABLRPGSL_CTX_ERROR] = RPG$S_ORGNOTIND; 

RPGSIOEXCEPTION(3, .RAB); ' The 3 indicates error is in 
! the file context area 

A aa RPG$_ORGNOTIND; 


+ 
If the XAB POSO, 3170 and DIP fields just filled in by the SOPEN match the 
requested POSO, S120 and DIP fields and the NSG field is 1 


then the current key is to be 

the key of reference and we are done except for setting the RAB KRF 

byte to be the anem as the XAB REF byte; otherwise, we must change the 

ney of reference in the XAB and then try a SDISPLAY on the next key 
ere is one. 
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RrgRoren te ow! of reference 1 
1 OPEN_INDEXED = Locate key of reference 1 


WHILE w ((, SAVE -KEY_POSO EQL . 
a ee E-KEY_SIZ Eat . 

AVES KEY-DTP EQ. , 

AND (RAB RABSB_NSG] EQL 1 

F XABCXABSB_REF] = .XABCXABSB_REF] + 1; 


Invalid key of reference terminates things. 


: 7303 AX-11 Oh legese V4.0-742 

204: RPGRTL.SRCJRPGOPEN.B32;1 (4) 
) 
) 


Maybe in the future, some more refined orese ed could be ro 
such as invalid aa In the case of a file that turns ou 

have just one key message pointing to the specific attribute 

of that key that isi in error from the F spec (position, size, data 
type or number of segments) could be given to the user. for 

now, invalid key of reference is returned if no key matching 

the requested key is found. This is compatible with PDP=11 RPGII. 


RMS STATUS = SDISPLAY (FAB=.FAB) 
IF NOT .RMS_STATUS 


HEN 
D: EX: TLOOP 


Is 
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14 
i The RAB a of reference must be set in the case the RMS_STATUS 
is successful. 


IF_.RMS_STATUS 
: RABCRABSB_KRFJ = .XABLXABSB_REF J 
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RETURN .RMS_STATUS 
END; 
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Func o 


TLE RPGSOPEN Locate key of reference 
\1-001\ 


~-EXTRN RPGSIOEXCEPTION 
~-EXTRN RPG$_ORGNOTIND, SYSSCREATE 
-EXTRN SySSOPEN. SYS$DISPLAY 
~-PSECT _RPGSCODE,NOWRT, SHR, PIC,2 
03FC 00000 -ENTRY ROCSOPEN_INDEXED., Save R2,R3,R4,R5,R6,R7,- 
sonsougye 8F DO 0000 MOVL #RPGS_ORGNOTIND, R9 


MOVAB “$ (r4), RAB 
1 K 


a 8 


59 
54 
53 BC 
2§ 0080 C4 
1E 
? 
6 
AG 


08 07 
000000006 00 


Sete Sete Se Se Sete Se te Be te 


RPGSOPEN 
1-001 


; Routine Size: 


234 
235 


Name 
_RPGSCODE 


File 


Locate ke 
RPGSOPEN_ {n 


153 bytes, 


0295 1 
0296 0 END ELUDOM 


_ ie 
of reference 1b-5 Sep 4 AX-11 Bliss-32 V4.0-742 
DEXED - tocate key of reference 14-Sep 71382 9: bi: 8 RPGRTL.SR RCIRPGOPEN. B32;1 
a 
000000006 Q 1 Ff 4 CALLS #1, SYSSOPEN 
g D B 2$: MOVL RO. RMS rolATus 
4 E9 00 F BLBC = RMS_S , 6$ 
00010619 8F 22 D4 004) CPL RMS “STATUS #67097 
20 1D AG OO) O04A CMPB 9(R4), #32 
13 13 00 4g BEQL 
FB AB 59 pO 0005 MOVL 9, =8(RAB) 
53 DD 00054 PUSHL RAB 
03 oD 90036 PUSHL #3 
000000006 00 02 FB CALLS #2, RPGSIOEXCEPTION 
50 59 DO 0005F MOVL  R9, RO 
04 9006¢ RET 
1E A2 58 B1 00063 3$: CMPW = SAVE_KEY_POSO, 30(XAB) 
le 12 90067 BNEQ 4$ 
2E = A2 57 91 00069 CMPB = SAVE_KEY_SIZ0, 46(XAB) 
0C 12 0006D BNEQ 4$ 
13 A2 56 91 0006F CMPB = SAVE_KEY_DTP, 19(XAB) 
06 12 00073 BNEQ 4$ 
01 14 Ag 91 00075 CMPB 20 (XAB) , #1 
12 13 00079 BEQL 5 
17 A2 96 00078 4$: INCB =. 23 (XAB) 
54 DD O007E PUSHL R4 
000000006 00 01 FB 90080 CALLS #1, SYSSDISPLAY 
85 50 DO 00087 MOVL RO, RMS_STATUS 
06 55 £8 0008A BLBS §_RMS_STATUS, 3$ 
05 55 £9 0008D 5$ BLBC RMS STATUS 
35 AB 17 A290 00090 MOVB  23(RAB) $4 (Rap) 
50 55 DO 00095 6s: MOVL § RMS_STATUS, RO 
04 00098 RET 
Routine Base: _RPGSCODE + 0000 
PSECT SUMMARY 
Bytes Attributes 


153 NOVEC,NOWRT, RD. EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


qoescere Syabols «o------ Pages Processing 
Total Loaded Percent Mapped Time 


Be Se Se Se Ge Se Ge Se Fe Be Be Fe Be Fe Se Ge Be Fe Se Ge Ge Ge Ge Be Ge Ge Se Se Fe Fe Se Be 


sre 


an ttae :05. 
tke tees O9:63-1 
Lines/CPU Min: 
Lexemes/CPU-Min: 13746 


M sf 
oca NY of referen 1$-3 Sep =1386 oe: M7 93 AX-11 Bliss-32 V4.0-742 
RPGS OPEN NDEXED = Secete key of reference 14-Sep 4 RPGRTL. BR CJRPGOPEN.B32;1 


~SS3SDUASB:ERPCRIC -oBUIRPGLIB<L32;1 |e " ies 00:00:1 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACE/LIS=LIS$:RPGOPEN/OBJ=OBJ$:RPGOPEN MSRC$:RPGOPEN/UPDATE=(ENH$:RPGOPEN) 
153 code ; 0 data bytes 


4 Used: 79 pages 
ation Complete 
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